Attribute VB_Name = "modFunctions"
Function Capitalize(c As Integer) As Integer
    If c >= 97 And c <= 122 Then
        c = c - 32
    End If
    Capitalize = c
End Function

Sub InitDB()
    cn.Provider = "MSDASQL.1"
    cn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};INITIAL CATALOG=" & App.Path & ("\TQTCvisdata.mdb")
    cn.Open
End Sub

Sub CloseDB()
    cn.Close
    Set cn = Nothing
    Set rs = Nothing
End Sub


Function GetUSNO() As String
    Dim rs As New ADODB.Recordset
    Dim rsstud As New ADODB.Recordset
    Dim usno As String
    Dim schyear As String
    Dim sno As String
        
    schyear = "0" & Year(Now()) - 2000
    
        
    Do While (True)
        Randomize
        sno = Format(Int(Rnd * 9999), "0000")
        usno = schyear & "-" & sno
        rsstud.Open "select * from trainee where id = '" & usno & "'", cn, 3, 1
        If (rsstud.EOF And rsstud.BOF) Then
            rsstud.Close
            Set rsstud = Nothing
            GetUSNO = usno
            Exit Do
        End If
        rsstud.Close
        DoEvents
    Loop
    
    Set rs = Nothing
    Set rsstud = Nothing
        
End Function

Function EncryptDecryptString(strpass As String) As String
    Dim ctr As Integer
    Dim xorres1 As Integer
    Dim xorres2 As Integer
    Dim encdata As String
        
    For ctr = 1 To Len(strpass)
        xorres1 = Asc(Mid$(strpass, ctr, 1))
        xorres2 = Asc(Mid$(ENCKEY, (ctr Mod Len(ENCKEY)) + 1, 1))
        encdata = encdata & Chr(xorres1 Xor xorres2)
    Next
    
    EncryptDecryptString = encdata
End Function

Function GetCcode() As String
    Dim rs As New ADODB.Recordset
    Dim rsstud As New ADODB.Recordset
    Dim Ccode As String
    Dim sno As String
        
    Do While (True)
        sno = Format(Int(Rnd * 9999), "0000")
        Ccode = sno
        rsstud.Open "select * from course where id = '" & Ccode & "'", cn, 3, 1
        If (rsstud.EOF And rsstud.BOF) Then
            rsstud.Close
            Set rsstud = Nothing
            GetCcode = Ccode
            Exit Do
        End If
        rsstud.Close
        DoEvents
    Loop
    
    Set rs = Nothing
    Set rsstud = Nothing
        
End Function

